home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November A / PCWK1103A.iso / ABBYY FineReader 7.0 PRO / data1.cab / pdf_main.ps < prev    next >
Text File  |  2002-10-23  |  24KB  |  807 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: pdf_main.ps,v 1.35.2.2 2002/04/02 13:57:27 mpsuzuki Exp $
  17. % pdf_main.ps
  18. % PDF file- and page-level operations.
  19.  
  20. % ATAPY changes at 23.10.2002. Comments about changes started with string "(ATAPY changes)"
  21.  
  22. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  23. .currentglobal true .setglobal
  24. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  25. pdfdict begin
  26.  
  27. % Patch in an obsolete variable used by some third-party software.
  28. /#? false def
  29.  
  30. % Test whether the current output device handles pdfmark.
  31. /.writepdfmarkdict 1 dict dup /pdfmark null put readonly def
  32. /.writepdfmarks {    % - .writepdfmarks <bool>
  33.   currentdevice //.writepdfmarkdict .getdeviceparams
  34.   mark eq { false } { pop pop true } ifelse
  35.   systemdict /DOPDFMARKS known or 
  36. } bind def
  37.  
  38. % For simplicity, we use a single interpretation dictionary for all
  39. % PDF graphics execution, even though this is too liberal.
  40. /pdfopdict mark
  41.   objopdict { } forall
  42.   drawopdict { } forall
  43.   /endstream { exit } bind
  44.   (%%EOF) cvn { exit } bind        % for filters
  45.     % PDF 1.1 operators
  46.   /BX { /BXlevel BXlevel 1 add store } bind
  47.   /EX { /BXlevel BXlevel 1 sub store } bind
  48.   /PS { cvx exec } bind
  49.     % PDF 1.2 operators
  50.   /BMC { pop } bind
  51.   /BDC { pop pop } bind
  52.   /EMC { }
  53.   /MP { pop } bind
  54.   /DP { pop pop } bind
  55. .dicttomark readonly def
  56.  
  57. % ======================== Main program ======================== %
  58.  
  59. end            % pdfdict
  60. userdict begin
  61.  
  62. /defaultfontname /Times-Roman def
  63.  
  64. % Make sure the registered encodings are loaded, so we don't run the risk
  65. % that some of the indices for their names will overflow the packed
  66. % representation.  (Yes, this is a hack.)
  67. SymbolEncoding pop
  68. DingbatsEncoding pop
  69.  
  70. % Redefine 'run' so it recognizes PDF files.
  71. systemdict begin
  72. /.runps /run load def
  73. /runpdfstring 50 string def        % length is arbitrary
  74.  
  75. % (ATAPY changes) Some PDF-creators produce PDF-s starting with empty line
  76. /skipEmptyLine { % <file> skipEmptyLine <file>
  77.   dup (  ) .peekstring {
  78.     (\r\n) eq {
  79.         dup (  ) readstring pop pop
  80.     } if
  81.   } if
  82. } bind def
  83. % (End of ATAPY changes)
  84.  
  85. /run {
  86.   dup type /filetype ne { (r) file } if
  87.   skipEmptyLine % (ATAPY changes)
  88.   dup ( ) .peekstring {
  89.     (%) eq {
  90.       dup (  ) .peekstring {
  91.     (%P) eq {
  92.       dup //runpdfstring {
  93.         % Some invalid files might have extra-long first lines....
  94.         { readline } .internalstopped not { pop pop exit } if
  95.         pop =string
  96.       } loop
  97.       //runpdfstring (%PDF-) anchorsearch {
  98.         pop pop runpdf
  99.       } {
  100.         pop cvx .runexec
  101.       } ifelse
  102.     } {
  103.       cvx .runps
  104.     } ifelse
  105.       } {
  106.     closefile
  107.       } ifelse
  108.     } {
  109.       cvx .runps
  110.     } ifelse
  111.   } {
  112.     closefile
  113.   } ifelse
  114. } bind odef
  115. currentdict /runpdfstring .undef
  116.  
  117. /runpdf            % <file> runpdf -
  118.  { userdict begin
  119.    /Page# null def
  120.    /Page null def
  121.    /DSCPageCount 0 def
  122.    /PDFSave null def
  123.    GS_PDF_ProcSet begin
  124.    pdfdict begin
  125.    pdfopen begin
  126.    Trailer /Root oget /Pages oget /CropBox knownoget
  127.     { mark /CropBox 3 -1 roll /PAGES pdfmark
  128.     }
  129.    if
  130.    /FirstPage where 
  131.     { pop FirstPage dup pdfpagecount gt
  132.       { (\nRequested FirstPage is greater than the number of pages in the file: ) print
  133.         pdfpagecount = flush
  134.       } if
  135.     } {
  136.       1
  137.     } ifelse
  138.    1
  139.    /LastPage where { pop LastPage pdfpagecount .min } { pdfpagecount } ifelse
  140.    2 index 1 index gt
  141.     { (   No pages will be processed \(FirstPage > LastPage\).) = flush }
  142.     { QUIET not
  143.       { (Processing pages ) print 2 index =only ( through ) print dup =only
  144.         (.) = flush
  145.       }
  146.      if
  147.     }
  148.    ifelse
  149.     { dup /Page# exch store
  150.       QUIET not { (Page ) print dup == flush } if
  151.       pdfgetpage pdfshowpage
  152.     } for
  153.    currentdict pdfclose
  154.    end            % temporary dict
  155.    end            % pdfdict
  156.    end            % userdict
  157.  } bind def
  158. end            % systemdict
  159. % Redefine the procedure that the C code uses for running piped input.
  160. % It is OK to use { (%stdin) run } here, because a startjob cannot occur.
  161. /.runstdin {
  162.   { (%stdin) run } execute0
  163. } bind def
  164.  
  165. end            % userdict
  166. pdfdict begin
  167.  
  168. % ======================== File parsing ======================== %
  169.  
  170. % Read the cross-reference and trailer sections.
  171.  
  172. /traileropdict mark
  173.   (<<) cvn { mark } bind
  174.   (>>) cvn /.dicttomark load
  175.   ([) cvn { mark } bind        % ditto
  176.   (]) cvn dup load
  177. %  /true true        % see .pdfexectoken in pdf_base.ps
  178. %  /false false        % ibid.
  179. %  /null null        % ibid.
  180.   /R { /resolveR cvx 3 packedarray cvx } bind    % see Objects below
  181.   /startxref /exit load
  182. .dicttomark readonly def
  183.  
  184. % Because of EOL conversion, lines with fixed contents might be followed
  185. % by one or more blanks.
  186. /lineeq            % <filestr> <conststr> lineeq <bool>
  187.  { anchorsearch
  188.     { pop { ( ) anchorsearch not { () eq exit } if pop } loop }
  189.     { pop false }
  190.    ifelse
  191.  } bind def
  192. /linene { lineeq not } bind def
  193.  
  194. % Read (mostly scan) the cross-reference table.
  195. /readxref        % <pos> readxref <trailerdict>
  196.  { PDFoffset add PDFfile exch setfileposition
  197.         % In some PDF files, this position actually points to
  198.         % white space before the xref line.  Skip over this here.
  199.    { PDFfile fileposition PDFfile read pop 32 gt { exit } if pop
  200.    } loop
  201.    PDFfile exch setfileposition
  202.         % The PDF specification says that the 'xref' must be on a line
  203.         % by itself. The code here formerly used readline and linene to
  204.         % check this. However, Acrobat Reader only requires the line to
  205.         % begin with 'xref', and there are enough applications producing
  206.         % non-compliant PDF files that we have to do this too.
  207.    PDFfile pdfstring 0 4 getinterval readstring pop
  208.    (xref) ne { /readxref cvx /syntaxerror signalerror } if
  209.         % Store the xref table entry position for each object.
  210.         % We only need to read the run headers, not every entry.
  211.     { PDFfile token pop        % first object # or trailer
  212.       dup /trailer eq { pop exit } if
  213.       PDFfile pdfstring readline pop
  214.       token pop            % entry count
  215.       exch pop exch
  216.         % This section might be adding new objects:
  217.         % ensure that Objects and Generations are big enough.
  218.         % Stack: count obj#
  219.       2 copy add growPDFobjects
  220.       PDFfile fileposition 3 -1 roll
  221.        { Objects 2 index lget null eq    % later update might have set it
  222.       { Objects 2 index 2 index cvx lput }
  223.          if exch 1 add exch 20 add
  224.        }
  225.       repeat PDFfile exch setfileposition pop
  226.     } loop
  227.    count /pdfemptycount exch def
  228.    PDFfile traileropdict .pdfrun
  229.  } bind def
  230.  
  231. % Open a PDF file and read the header, trailer, and cross-reference.
  232. /pdfopen {        % <file> pdfopen <dict>
  233.   pdfopenfile begin
  234.   pdfopencache
  235.   .writepdfmarks {
  236.     % Copy bookmarks (outline) to the output.
  237.     Trailer /Root oget /Outlines knownoget {
  238.       /First knownoget {
  239.     { dup writeoutline /Next knownoget not { exit } if } loop
  240.       } if
  241.     } if
  242.   } if        % end .writepdfmarks
  243.   currentdict end
  244. } bind def
  245. /pdfopencache {        % - pdfopencache -
  246.     % Create and initialize some caches.
  247.   /PageCount pdfpagecount def
  248.   /PageNumbers PageCount 65534 .min dict def
  249.   /PageIndex PageCount 65534 .min array def
  250. } bind def
  251. /pdfopenfile {        % <file> pdfopenfile <dict>
  252.    pdfdict readonly pop        % can't do it any earlier than this
  253.    15 dict begin
  254.    /LocalResources 0 dict def
  255.    /DefaultMatrix null def    % establish binding
  256.    /Printed where { pop } {
  257.         % Guess whether the output device is a printer.
  258.      /Printed currentpagedevice /OutputFile known def
  259.    } ifelse
  260.    /PSLevel1 where { pop } { /PSLevel1 false def } ifelse
  261.    cvlit /PDFfile exch def
  262.    /PDFsource PDFfile def
  263.    /Repaired false def
  264.    PDFfile dup 0 setfileposition pdfstring readstring 
  265.    not {/pdfopen cvx /syntaxerror signalerror} if
  266.    (%PDF-) search not {/pdfopen cvx /syntaxerror signalerror} if
  267.    length /PDFoffset exch def pop cvr /PDFversion exch def
  268.    findxref
  269.    initPDFobjects
  270.     % Read the last cross-reference table.
  271.    readxref /Trailer exch def
  272.    Trailer /Encrypt known
  273.     { pdf_process_Encrypt    % signal error
  274.     }
  275.    if
  276.     % Read any previous cross-reference tables.
  277.    Trailer { /Prev .knownget not { exit } if readxref } loop
  278.    Repaired { printrepaired } if
  279.    currentdict end
  280.  } bind def
  281.  
  282. % Skip backward over the %%EOF at the end of the PDF file, and read
  283. % the preceding startxref line.  The PDF specification unambiguously
  284. % requires that the %%EOF appear on a line by itself, and that the
  285. % startxref and the following position value appear on separate lines;
  286. % however, some applications (including, apparently, Acrobat Distiller
  287. % on the Macintosh) may add up to 2K of garbage after the %%EOF, and some
  288. % other applications also truncate the %%EOF to %%EO, and/or put the
  289. % startxref and the following value on the same line.
  290. % A file reported from Distiller 3.02b for AIX 4.1.1 has 2076 bytes
  291. % of garbage. The tolerance is increased to 4K to cover future
  292. % applications and bigger allocation units.
  293. /findxref {        % - findxref <xrefpos>
  294.   PDFfile dup dup 0 setfileposition bytesavailable
  295.   dup /PDFfilelen exch def
  296.     % Find the last %%EOF string (within 4096 bytes)
  297.   4096 sub PDFoffset .max
  298.   2 copy setfileposition
  299.   PDFfilelen exch sub string 1 index exch readstring pop {
  300.     (\015%%EO) search {        % Adobe can handle truncated key string
  301.       pop pop            % if found, keep searching 'post' string
  302.     } {
  303.       (\012%%EO) search
  304.     { pop pop } { exit } ifelse    % exit if neither string found
  305.     } ifelse
  306.   } loop
  307.   PDFfilelen exch length sub 4 sub PDFoffset .max exch 1 index setfileposition
  308.     % Stack: eofpos
  309.     % Check for whether this is, in fact, a valid PDF file.
  310.  
  311.     % (ATAPY changes) %%EOF may not be followed by end_of_line symbol
  312.  
  313.   dup PDFfilelen exch sub dup dup 7 gt exch 5 lt or {
  314.     pop true
  315.   } {
  316.     string PDFfile exch readstring pop
  317.     dup (%%EOF) eq exch 
  318.     dup (%%EOF\n) eq exch dup (%%EOF\r) eq
  319.     exch (%%EOF\r\n) eq or or or not
  320.  
  321.     % (End of ATAPY changes)
  322.   
  323.   } ifelse {
  324.     (
  325.    **** This file has a corrupted %%EOF marker, or garbage after the %%EOF.
  326. ) pdfformaterror
  327.   } if
  328.   PDFfile exch setfileposition
  329.     % Now read the startxref and xref start position.
  330.   prevline token not { null } if dup type /integertype eq {
  331.     exch pop cvi        % xref start position
  332.     exch PDFfile exch setfileposition
  333.     prevline (startxref) linene { /findxref cvx /syntaxerror signalerror } if
  334.     pop
  335.   } {    % else, this file has 'startxref #####' format
  336.     (startxref) ne { /findxref cvx /syntaxerror signalerror } if
  337.     cvi        % xref start position
  338.     (
  339.    **** The format of the startxref line in this file is invalid.
  340. ) pdfformaterror
  341.     exch PDFfile exch setfileposition
  342.   } ifelse
  343. } bind def
  344. /stderrfile (%stderr) (w) file def
  345. /stderrprint {                % <string> stderrprint -
  346.   //stderrfile dup 3 -1 roll writestring flushfile
  347. } bind def
  348. /pdfformaterror {    % <string> pdfformaterror -
  349.   stderrprint
  350.   /Repaired true store
  351. } bind def
  352. /printrepaired {
  353.   Trailer /Info knownoget {
  354.     /Producer knownoget not { null } if
  355.   } {
  356.     null
  357.   } ifelse
  358.   dup null eq {
  359.     pop (\
  360.    **** Please notify the author of the software that produced this file
  361. )
  362.   } {
  363.     (   **** The file was produced by ) stderrprint
  364.     % Handle a Unicode Producer.
  365.     (\376\377) anchorsearch {
  366.       pop dup length 2 idiv string 0 1 2 index length 1 sub {
  367.         % Stack: origstr newstr i
  368.     1 index exch 3 index 1 index 2 mul 1 add get put
  369.       } for exch pop
  370.     } if
  371.     stderrprint
  372.     (:
  373.    **** please notify the author of this software
  374. )
  375.   } ifelse stderrprint
  376. (\
  377.    **** that the file does not conform to Adobe's published PDF
  378.    **** specification.  Processing of the file will continue normally.
  379.  
  380. ) stderrprint
  381. } bind def
  382.  
  383. % Write the outline structure for a file.  Uses linkdest (below).
  384. /writeoutline        % <outlinedict> writeoutline -
  385.  { mark
  386.    0 2 index /First knownoget
  387.     { { exch 1 add exch /Next knownoget not { exit } if } loop }
  388.    if
  389.         % stack: dict mark count
  390.    dup 0 eq
  391.     { pop 1 index
  392.     }
  393.     { 2 index /Count knownoget { 0 lt { neg } if } if
  394.       /Count exch 3 index
  395.     }
  396.    ifelse linkdest /Title oget /Title exch /OUT pdfmark
  397.    /First knownoget
  398.     { { dup writeoutline /Next knownoget not { exit } if } loop }
  399.    if
  400.  } bind def
  401.  
  402. % Close a PDF file.
  403. /pdfclose        % <dict> pdfclose -
  404.  { begin
  405.    PDFfile closefile
  406.    end
  407.  } bind def
  408.  
  409. % ======================== Page accessing ======================== %
  410.  
  411. % Get a (possibly inherited) attribute of a page.
  412. /pget            % <pagedict> <key> pget <value> -true-
  413.             % <pagedict> <key> pget -false-
  414.  { 2 copy knownoget
  415.     { exch pop exch pop true
  416.     }
  417.     { exch /Parent knownoget
  418.        { exch pget }
  419.        { pop false }
  420.       ifelse
  421.     }
  422.    ifelse
  423.  } bind def
  424.  
  425. % Get the value of a resource on a given page.
  426. /rget {            % <resname> <pagedict> <restype> rget <value> -true-
  427.             % <resname> <pagedict> <restype> rget -false-
  428.   LocalResources 1 index knownoget {
  429.      3 index knownoget
  430.   } {
  431.     false
  432.   } ifelse {
  433.     exch pop exch pop exch pop true
  434.   } {
  435.     exch /Resources pget {
  436.       exch knownoget { exch knownoget } { pop false } ifelse
  437.     } {
  438.       pop pop false
  439.     } ifelse
  440.   } ifelse
  441. } bind def
  442.  
  443. % Get the total number of pages in the document.
  444. /pdfpagecount        % - pdfpagecount <int>
  445.  { Trailer /Root oget /Pages oget /Count oget
  446.  } bind def
  447.  
  448. % Find the N'th page of the document by iterating through the Pages tree.
  449. % The first page is numbered 1.
  450. /pdffindpageref {        % <int> pdffindpage <objref>
  451.   dup Trailer /Root oget /Pages get
  452.     {        % We should be able to tell when we reach a leaf
  453.         % by finding a Type unequal to /Pages.  Unfortunately,
  454.         % some files distributed by Adobe lack the Type key
  455.         % in some of the Pages nodes!  Instead, we check for Kids.
  456.       dup oforce /Kids knownoget not { exit } if
  457.       exch pop null
  458.       0 1 3 index length 1 sub {
  459.          2 index exch get
  460.      dup oforce dup /Kids known { /Count oget } { pop 1 } ifelse
  461.         % Stack: index kids null noderef count
  462.      dup 5 index ge { pop exch pop exit } if
  463.      5 -1 roll exch sub 4 1 roll pop
  464.       } for exch pop
  465.         % Stack: index null|noderef
  466.       dup null eq { pop pop 1 null exit } if
  467.     } loop
  468.         % Stack: index countleft noderef
  469.    1 index 1 ne { pop pop /pdffindpage cvx /rangecheck signalerror } if
  470.    exch pop
  471.    PageIndex 2 index 1 sub 65533 .min 2 index oforce put
  472.    PageNumbers 1 index oforce 3 index dup 65534 le
  473.     { put }
  474.     { pop pop pop }    % don't store more than 65534 pagenumbers
  475.    ifelse
  476.    exch pop
  477. } bind def
  478. /pdffindpage {        % <int> pdffindpage <pagedict>
  479.   pdffindpageref oforce
  480. } bind def
  481.  
  482. % Find the N'th page of the document.
  483. % The first page is numbered 1.
  484. /pdfgetpage        % <int> pdfgetpage <pagedict>
  485.  { PageIndex 1 index 1 sub dup 65533 lt
  486.     { get }
  487.     { pop pop null }
  488.    ifelse
  489.    dup null ne
  490.     { exch pop oforce }
  491.     { pop pdffindpage }
  492.    ifelse
  493.  } bind def
  494.  
  495. % Find the page number of a page object (inverse of pdfgetpage).
  496. /pdfpagenumber        % <pagedict> pdfpagenumber <int>
  497.  {    % We use the simplest and stupidest of all possible algorithms....
  498.    PageNumbers 1 index .knownget
  499.     { exch pop
  500.     }
  501.     { 1 1 PageCount 1 add    % will give a rangecheck if not found
  502.        { dup pdfgetpage oforce 2 index eq { exit } if pop
  503.        }
  504.       for exch pop
  505.     }
  506.    ifelse
  507.  } bind def
  508.  
  509. % Display a given page.
  510. /boxrect        % [<llx> <lly> <urx> <ury>] boxrect <x> <y> <w> <h>
  511.  { aload pop exch 3 index sub exch 2 index sub
  512.  } bind def
  513. /resolvedest {        % <name|string|other> resolvedest <other|null>
  514.   dup type /nametype eq {
  515.     Trailer /Root oget /Dests knownoget {
  516.       exch knownoget not { null } if
  517.     } {
  518.       null
  519.     } ifelse
  520.   } {
  521.     dup type /stringtype eq {
  522.       Trailer /Root oget /Names knownoget {
  523.     /Dests knownoget {
  524.       exch nameoget
  525.     } {
  526.       pop null
  527.     } ifelse
  528.       } {
  529.     pop null
  530.       } ifelse
  531.     } if
  532.   } ifelse
  533. } bind def
  534. /linkdest {        % <link|outline> linkdest
  535.             %   ([/Page <n>] /View <view> | ) <link|outline>
  536.   dup /Dest knownoget
  537.     { resolvedest
  538.       dup type /dicttype eq { /D knownoget not { null } if } if
  539.       dup null eq
  540.        { pop }
  541.        { dup 0 oget
  542.      dup null eq
  543.       { pop }
  544.       { dup type /integertype ne { pdfpagenumber } if
  545.         /Page exch 4 -2 roll
  546.       }
  547.      ifelse
  548.      dup length 1 sub 1 exch getinterval /View exch 3 -1 roll
  549.        }
  550.       ifelse
  551.     }
  552.    if
  553. } bind def
  554. % <pagedict> mark ... -proc- -
  555. /namedactions 8 dict dup begin
  556.   /FirstPage {
  557.     /Page 1 3 -1 roll
  558.   } def
  559.   /LastPage {
  560.     counttomark 2 add index pdfpagecount /Page exch 3 -1 roll
  561.   } def
  562.   /NextPage {
  563.     counttomark 2 add index pdfpagenumber 1 add /Page exch 3 -1 roll
  564.   } def
  565.   /PrevPage {
  566.     counttomark 2 add index pdfpagenumber 1 sub /Page exch 3 -1 roll
  567.   } def
  568. end readonly def
  569. % <pagedict> <annotdict> -proc- -
  570. /annottypes 5 dict dup begin
  571.   /Text {
  572.     mark exch
  573.      { /Rect /Open /Contents }
  574.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  575.     forall pop /ANN pdfmark
  576.   } bind def
  577.   /Link {
  578.     mark exch
  579.      { /Rect /Border }
  580.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  581.     forall dup /A knownoget {
  582.       dup /URI known {
  583.         /A mark 3 2 roll    % <<>> /A [ <<action>>
  584.         { oforce } forall
  585.         .dicttomark
  586.         3 2 roll
  587.       } {
  588.         dup /D knownoget {
  589.       exch pop exch dup length dict copy dup /Dest 4 -1 roll put
  590.         } {
  591.       /N knownoget {        % Assume /S /Named
  592.          namedactions exch .knownget { exec } if
  593.       } if
  594.         } ifelse
  595.       } ifelse
  596.     } if
  597.     linkdest pop /LNK pdfmark
  598.   } bind def
  599. end readonly def
  600.  
  601. /pdfshowpage        % <pagedict> pdfshowpage -
  602.  { dup /Page exch store
  603.    pdfshowpage_init 
  604.    pdfshowpage_setpage 
  605.    save /PDFSave exch store
  606.    (before exec) VMDEBUG
  607.      pdfshowpage_finish
  608.    (after exec) VMDEBUG
  609.    PDFSave restore
  610.  } bind def
  611.  
  612. /pdfpagecontents    % <pagedict> pdfpagecontents <contents>
  613.  { } bind def
  614.  
  615. /pdfshowpage_init     % <pagedict> pdfshowpage_init <pagedict>
  616.  { /DSCPageCount DSCPageCount 1 add store
  617.  } bind def
  618.  
  619. /.pdfshowpage_Install {    % <pagedict> [<prevproc>] .pdfshowpage_Install -
  620.   exch
  621.     % We would like to clip to the CropBox here, but the subsequent
  622.     % initgraphics would override it.  Instead, we have to handle it
  623.     % in graphicsbeginpage.
  624.   dup /MediaBox pget {
  625.     dup 0 get neg exch 1 get neg translate
  626.   } if
  627.   pop 0 get exec
  628. } bind def
  629.  
  630. /pdfshowpage_setpage {    % <pagedict> pdfshowpage_setpage <pagedict>
  631.   4 dict begin        % for setpagedevice
  632.     % Stack: pagedict
  633.   currentpagedevice /Orientation 2 index /Rotate pget not { 0 } if 90 idiv
  634.     % Rotate specifies *clockwise* rotation!
  635.     neg 3 and def
  636.     % Stack: pagedict currentpagedict
  637.   1 index /MediaBox pget {
  638.             % Set the page size.
  639.     boxrect 2 array astore /PageSize exch def pop pop
  640.   } if
  641.   dup /Install .knownget {
  642.             % Don't let the Install procedure get more deeply
  643.             % nested after every page.
  644.       dup type dup /arraytype eq exch /packedarraytype eq or {
  645.     dup length 4 eq {
  646.       dup 2 get /.pdfshowpage_Install load eq {
  647.         1 get 0 get    % previous procedure
  648.       } if
  649.     } if
  650.       } if
  651.   } {
  652.     { }
  653.   } ifelse 1 array astore
  654.   2 index exch /.pdfshowpage_Install load /exec load
  655.   4 packedarray cvx
  656.     % Stack: pagedict currentpagedict installproc
  657.   /Install exch def
  658.     % Stack: pagedict currentpagedict
  659.   pop currentdict end setpagedevice
  660. } bind def
  661.  
  662. /pdfshowpage_finish {    % <pagedict> pdfshowpage_finish -
  663.  
  664.   .writepdfmarks {
  665.  
  666.     % Copy the crop box.
  667.     dup /CropBox knownoget {
  668.     % If the page has been rotated, rotate the CropBox.
  669.       mark /CropBox 3 -1 roll
  670.       3 index /Rotate pget {
  671.     90 idiv 1 and 0 ne {
  672.       aload pop 4 -2 roll exch 4 2 roll exch 4 array astore
  673.     } if
  674.       } if
  675.       /PAGE pdfmark
  676.     } if
  677.  
  678.     % Copy annotations and links.
  679.     dup /Annots knownoget {
  680.       0 1 2 index length 1 sub
  681.        { 1 index exch oget
  682.          dup /Subtype oget annottypes exch .knownget { exec } { pop } ifelse
  683.        }
  684.       for pop
  685.     } if
  686.  
  687.   } if        % end .writepdfmarks
  688.  
  689.     % Display the actual page contents.
  690.    6 dict begin
  691.    /BXlevel 0 def
  692.    /BGDefault currentblackgeneration def
  693.    /UCRDefault currentundercolorremoval def
  694.     %****** DOESN'T HANDLE COLOR TRANSFER YET ******
  695.    /TRDefault currenttransfer def
  696.   matrix currentmatrix 2 dict
  697.   2 index /CropBox knownoget {
  698.     boxrect 4 array astore 1 index /ClipRect 3 -1 roll put
  699.   } if
  700.   dictbeginpage /DefaultMatrix 1 index store setmatrix
  701.   dup          % for showing annotations below
  702.   count /pdfemptycount exch store
  703.   gsave
  704.     % If the page uses any transparency features, show it within
  705.     % a transparency group.
  706.   PDFversion 1.4 lt {
  707.     showpagecontents
  708.   } {
  709.     dup pageusestransparency {
  710.       % Show the page within a PDF 1.4 device filter.
  711.       0 .pushpdf14devicefilter {
  712.     % If the page has a Group, enclose contents in transparency group.
  713.         % (Adobe Tech Note 5407, sec 9.2)
  714.         dup /Group knownoget {
  715.       1 index /CropBox knownoget not {
  716.         1 index /MediaBox oget
  717.       } if .beginformgroup {
  718.         showpagecontents
  719.       } .internalstopped {
  720.         .discardtransparencygroup stop
  721.       } if .endtransparencygroup
  722.         } {
  723.       showpagecontents
  724.         } ifelse
  725.       } .internalstopped {
  726.     % todo: discard
  727.     .popdevicefilter stop
  728.       } if .popdevicefilter
  729.     } {
  730.       showpagecontents
  731.     } ifelse
  732.   } ifelse
  733.   grestore
  734.    % todo: mixing drawing ops outside the device filter could cause
  735.    % problems, for example with the pnga device.
  736.    /Annots knownoget { { oforce drawannot } forall } if
  737.    endpage
  738.    end            % scratch dict
  739. } bind def
  740. /showpagecontents {    % <pagedict> showpagecontents -
  741.   /Contents knownoget not { 0 array } if
  742.   dup type /arraytype ne { 1 array astore } if {
  743.     oforce false resolvestream pdfopdict .pdfrun
  744.   } forall
  745. } bind def
  746. /processcolorspace {    % - processcolorspace <colorspace>
  747.     % The following is per the PLRM3.
  748.   currentdevice 1 dict dup /ProcessColorModel dup put .getdeviceparams
  749.   exch pop exch pop
  750.   dup type /nametype ne { cvn } if
  751.   dup { setcolorspace } .internalstopped { pop /DeviceRGB } if
  752. } bind def
  753.  
  754. % ------ Transparency support ------ %
  755.  
  756. % Determine whether a page might invoke any transparency features:
  757. %    - Group in the page dictionary
  758. %    - Non-default ca, CA, or SMask in an ExtGState
  759. %    - Form XObject with Group
  760. %    - Image XObject with SMask
  761. % ****** DO WE NEED TO LOOK IN RESOURCE DICTS OF OTHER CONTENT STREAMS? ******
  762. /pageusestransparency {        % <pagedict> pageusestransparency <bool>
  763.   PDFversion 1.4 lt {
  764.     pop false
  765.   } {
  766.     dup /Group known {
  767.       pop true
  768.     } {
  769.       false exch {
  770.     dup resourceusestransparency { pop not exit } if
  771.     /Parent knownoget not { exit } if
  772.       } loop
  773.     } ifelse
  774.   } ifelse
  775. } bind def
  776. % Check the Resources of a page or Form.
  777. /resourceusestransparency {    % <dict> resourceusestransparency <bool>
  778.   {    % Use loop to provide an exitable context.
  779.     /Resources knownoget not { 0 dict } if
  780.     dup /ExtGState knownoget {
  781.       false exch {
  782.     exch pop oforce
  783.     dup /ca knownoget { 1 ne { pop not exit } if } if
  784.     dup /CA knownoget { 1 ne { pop not exit } if } if
  785.     dup /SMask knownoget { /None ne { pop not exit } if } if
  786.     pop
  787.       } forall { pop true exit } if
  788.     } if
  789.     dup /XObject knownoget {
  790.       false exch {
  791.     exch pop oforce dup /Subtype get
  792.     dup /Image eq { 1 index /SMask known { pop pop not exit } if } if
  793.     /Form eq {
  794.       dup /Group known { pop not exit } if
  795.       resourceusestransparency { not exit } if
  796.     } {
  797.       pop
  798.     } ifelse
  799.       } forall { pop true exit } if
  800.     } if
  801.     pop false exit
  802.   } loop
  803. } bind def
  804.  
  805. end            % pdfdict
  806. .setglobal
  807.